home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / kit internet / e-mail / yam2.0 / rexx / example2.yam < prev    next >
Text File  |  1999-03-14  |  766b  |  17 lines
  1. /* Example2.yam - YAM ARexx interface example #2      */
  2. /* Gets the sender of the current message and selects */
  3. /* all messages from the same sender                  */
  4. /* Requires YAM 2.0p7 or later                        */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8.  
  9. MailInfo STEM cmess.                            /* Get information about current message */
  10. FolderInfo STEM folder.                         /* Get information about current folder */
  11. ListSelect NONE                                 /* Clear selection */
  12. DO i = 0 TO folder.TOTAL-1                      /* Loop through whole folder */
  13.    MailInfo i STEM mess.                        /* Get information about message */
  14.    IF mess.FROM = cmess.FROM THEN ListSelect i  /* Select message if senders match */
  15. END
  16.  
  17.